function initial_screen_output(settings)
% initial screen and logging output
if settings.verbose
    printfunc = @fprintf2;
else
    printfunc = @fprintf;
end
    
[pathstr, name, ext] = fileparts(settings.output); %#ok<NASGU>
%if ~isempty(pathstr) && ~exist(pathstr,'dir'), mkdir(pathstr); end

%fid = fopen(settings.output,'w');
%printfunc(fid, '# -------------------------\n');
%printfunc(fid, '# Ensemble classification\n');

%if ischar(settings.cover)
%    COVER_OUT = settings.cover;
%else
%    COVER_OUT = '{';
%    for i=1:length(settings.cover)
%        COVER_OUT = [COVER_OUT settings.cover{i} ',']; %#ok<AGROW>
%    end
%    COVER_OUT = [COVER_OUT(1:end-1) '}'];
%end
%if ischar(settings.stego)
%    STEGO_OUT = settings.stego;
%else
%    STEGO_OUT = '{';
%    for i=1:length(settings.stego)
%        STEGO_OUT = [STEGO_OUT settings.stego{i} ',']; %#ok<AGROW>
%    end
%    STEGO_OUT = [STEGO_OUT(1:end-1) '}'];
%end

%printfunc(fid,['# cover : ' COVER_OUT '\n']);
%printfunc(fid,['# stego : ' STEGO_OUT '\n']);
%printfunc(fid,'# trn/tst ratio : %.4f\n',settings.ratio);
%if ~ischar(settings.L)
%    printfunc(fid,'# L : %i\n',settings.L);
%else
%    printfunc(fid,'# L : %s (min %i, length %i, eps %.5f)\n',settings.L,settings.L_min_length,settings.L_memory,settings.L_epsilon);
%end
%if ischar(settings.k)
%    printfunc(fid,'# d_sub : automatic (Eoob tolerance %.4f, step %i)\n',settings.Eoob_tolerance,settings.k_step);
%else
%    printfunc(fid,'# d_sub : %i\n',settings.k);
%end
%if length(settings.seed_trntst)==1
%    printfunc(fid,'# seed 1 (trn/tst) : %i\n',settings.seed_trntst);
%    printfunc(fid,'# seed 2 (subspaces) : %i\n',settings.seed_subspaces);
%    if settings.bootstrap
%        printfunc(fid,'# seed 3 (bootstrap) : %i\n',settings.seed_bootstrap);
%    end
%else
%    printfunc(fid,'# seeds : [%i',settings.seed_trntst(1));
%    for i=2:length(settings.seed)
%        printfunc(fid,',%i',settings.seed_trntst(i));
%    end
%    printfunc(fid,']\n');
%end
%if strcmp(settings.keep_cov,'no')
%    printfunc(fid,'# no covariance caching\n');
%elseif strcmp(settings.keep_cov,'memory')
%    printfunc(fid,'# covariances stored in memory\n');
% elseif strcmp(settings.keep_cov,'harddrive')
%     printfunc(fid,'# covariances stored to harddrive\n');
%end
%if settings.bootstrap
%    printfunc(fid,'# bootstrap : yes\n');
%else
%    printfunc(fid,'# bootstrap : no\n');
%end
%printfunc(fid, '# -------------------------\n');
